home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 15
/
Aminet 15 - Nov 1996.iso
/
Aminet
/
mus
/
midi
/
tf102_de.lha
/
tracks&fieldsdemo
/
T&F_HDInstall
< prev
next >
Wrap
Text File
|
1996-08-31
|
4KB
|
144 lines
;-------------------------------------------------
; HD Installation script for Tracks&Fields
; Copyright © 1996 by Dick Roström.
; Written by Dick Roström.
;-------------------------------------------------
;$VER: Tracks&Fields HDInstall 1.0 ()
; Check kickversion.
;-------------------
(if (< (/ (getversion) 65536) 39)
(abort "Tracks&Fields will only run under Kickstart 3.0 or above!")
)
; Select drawer.
;---------------
(welcome)
(set @default-dest (getassign "TF" "dva"))
(if (= @default-dest "")
((set @default-dest (getassign "Work" "dva"))
(if (= @default-dest "") (set @default-dest (getassign "SYS" "dva")))
(set @default-dest (askdir (prompt "Please select a drive or drawer where\nTracks&Fields should be installed!\nA drawer will be created there.")
(help "In this location a drawer will be created. All files except the libraries and the font will be installed inside this drawer.")
(default @default-dest)))
(set @default-dest (tackon @default-dest "Tracks&Fields"))
)
((set bool (askbool (prompt "Installing Tracks&Fields in\n" @default-dest) (default 1) (help @askbool-help)))
(if (= bool 0)
((set @default-dest (getassign "SYS" "dva"))
(set @default-dest (askdir (prompt "Please select a drive or drawer where\nTracks&Fields should be installed!\nA drawer will be created there.")
(help "In this location a drawer will be created. All files except the libraries will be installed inside this drawer.")
(default @default-dest)))
(set @default-dest (tackon @default-dest "Tracks&Fields"))
)
)
)
)
; Copy Musicline Editor files to main dir.
;-----------------------------------------
(working "Checking for Tracks&Fields files.")
(copyfiles (prompt "Install Tracks&Fields.")
(source "Tracks&Fields")
(dest @default-dest)
(pattern "#?")
(files)
(infos)
(optional fail)
(confirm)
(help @copyfiles-help)
)
(set Destination (substr @default-dest 0 (- (strlen @default-dest) 15)))
; Copy Commands.
;------------------
(working "Checking for commands.")
(makedir (tackon @default-dest "Commands"))
(if (= (exists "Tracks&Fields/Commands" (noreq)) 2)
(copyfiles (prompt "Install Commands.")
(source "Tracks&Fields/Commands")
(dest (tackon @default-dest "Commands"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
)
; Copy Songs.
;------------------
(working "Checking for songs.")
(makedir (tackon @default-dest "Songs"))
(if (= (exists "Tracks&Fields/Songs" (noreq)) 2)
(copyfiles (prompt "Install Songs.")
(source "Tracks&Fields/Songs")
(dest (tackon @default-dest "Songs"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
)
; Copy Source.
;------------------
(working "Checking for source.")
(makedir (tackon @default-dest "Source"))
(if (= (exists "Tracks&Fields/Source" (noreq)) 2)
(copyfiles (prompt "Install Source.")
(source "Tracks&Fields/Source")
(dest (tackon @default-dest "Source"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
)
; Make Sysex directory.
;------------------
(working "Checking for Sysex.")
(makedir (tackon @default-dest "Sysex"))
(if (= (exists "Tracks&Fields/Sysex" (noreq)) 2)
(copyfiles (prompt "Install Sysex.")
(source "Tracks&Fields/Sysex")
(dest (tackon @default-dest "Sysex"))
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
)
; Copy libs to LIBS:
;------------------------
(copyfiles (prompt "Install Tracks&Fields libraries")
(source "Tracks&Fields/Libs")
(dest "LIBS:")
(all)
(optional fail force)
(confirm)
(help @copyfiles-help)
)
; Make assign in user-startup
;----------------------------
(startup "Tracks&Fields" (prompt "Making assign for Tracks&Fields in user-startup.")
(command "Assign TF: " (expandpath (@default-dest)))
(help @startup-help)
)
(makeassign "TF" @default-dest)
(exit "")